home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib04.dsk / FAST DATA FORMAT DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  38 lines
  1. 10  HIMEM: 20000
  2. 20  TEXT 
  3. 30 Q$ = ""
  4. 40  PRINT  CHR$(4);"BLOAD FMT,A20488"
  5. 50  HOME : VTAB 8: HTAB 3: INVERSE : PRINT "DATA FORMAT ROUTINE DEMONSTRATION": NORMAL : VTAB 12
  6. 60  PRINT "IN THIS DEMONSTRATION, HIT ANY KEY": PRINT "TO GO TO THE NEXT DISPLAY"
  7. 70  GOSUB 260
  8. 80  REM  REPEAT DEMO 3 TIMES
  9. 90  REM  CHANGE WINDOW EACH TIME
  10. 100  FOR AA = 1 TO 3
  11. 110 X = 4
  12. 120  RESTORE : POKE 768,0
  13. 130  CALL  -936
  14. 140  FOR I = 1 TO X: READ Q$
  15. 150  CALL 20488: IF  PEEK(768) >0  THEN  GOSUB 260: GOTO 150
  16. 160  NEXT 
  17. 170  GOSUB 260
  18. 180  REM  WINDOW=RIGHT HALF OF SCREEN
  19. 190  POKE 32,20: POKE 33,11: IF AA = 1  THEN  NEXT AA
  20. 200  REM  MAKE WINDOW A BOX
  21. 210  POKE 34,8: POKE 35,15: NEXT AA: TEXT : HOME 
  22. 220  REM  DEMO FOR NORMAL USE
  23. 230 X = 2: POKE 768,0: FOR I = 1 TO X: READ Q$
  24. 240  CALL 20488: IF  PEEK(768) >0  THEN  GOSUB 260: GOTO 240
  25. 250  NEXT : GOSUB 260: INVERSE : HTAB 10: PRINT "END OF DEMONSTRATION": NORMAL : END 
  26. 260  POKE  -16368,0: GET W$: CALL  -936: RETURN 
  27. 270  REM 
  28. 280  REM  DATA FOR REPEATED DEMO
  29. 290  REM 
  30. 300  DATA  "    THIS IS A DEMONSTRATION OF THE CAPABILITIES OF THE DATA FORMAT ROUTINE.@ @  THROUGH THE USE OF THIS ROUTINE YOU ARE ABLE TO JUST TYPE IN THE DATA TO BE DISPLAYED, AND FOR THE MOST PART"
  31. 310  DATA   ", FORGET ABOUT WORD WRAP AROUND.@@YOU CAN FORCE@A@SHORT@LINE@OR LET IT DEFAULT TO A LONG LINE.  THE LINE LENGTH IS DETERMINED BY THE TEXT WINDOW PARAMETERS YOU SET.@@MULTIPLE@SCREENS CAN BE FORCED@@WITH@@THE@@"
  32. 320  DATA  "SAME EASE@@AS FORCING A SHORT LINE.@@  REMEMBER WRAP-AROUND WILL HAPPEN IN EXTREMELY NARROW WINDOW DEFINITIONS OR WHEN USING THOSE TWENTY-FIVE CENT WORDS.@ @  WHAT ABOUT BLANK LINES?@ @NO@ @ @PROBLEM.@ @ @"
  33. 330  DATA  "ALSO REMEMBER, CHARACTER SPACING IS IMPORTANT TO THIS ROUTINE@ SO@  IF@   YOU@    WANT@   SOME@  SPECIAL INDENTION@BE SURE TO PROVIDE THE PROPER SPACES.@BYE FOR NOW AND HAPPY DATA FORMATTING."
  34. 340  REM 
  35. 350  REM  DATA FOR NORMAL DEMO
  36. 360  REM 
  37. 370  DATA  "     NOW THAT YOU HAVE SEEN WHAT THE DATA FORMAT ROUTINE IS CAPABLE OF DOING.  I WOULD LIKE TO SHOW YOU HOW YOUR DATA WOULD LOOK WITHOUT GETTING SO FANCY.@     AS YOU CAN SEE THE DATA IS "
  38. 380  DATA  "QUITE PRESENTABLE AND THE USE OF THE DATA FORMAT ROUTINE WILL SURELY SAVE YOU TIME.  TIME THAT YOU COULD SPEND DEVELOPING YOUR PROGRAMS AND NOT ON THE TEDIOUS EFFORT OF FORMATTING YOUR OUTPUT."